source("plotting.R")
library(tidyverse)
library(scales)

df_one = read_csv("../distance_windows_votes.csv")
df_two = read_csv("../distance_windows_attributes.csv")

to_render = conditional_distance_replication_windows(df_one,df_two)

#p = combine_plots_conditional_distance(to_render)


#save_plot("figures_for_paper/a8.pdf", 
#          p, base_height = 18, base_asp = 1.5,device = cairo_pdf)


p = combine_plots_conditional_distance_default(to_render)
save_plot("figures_for_replication/a8.pdf", 
          p, base_height = 18, base_asp = 1.5,device = cairo_pdf)
